home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A).po
/
BRICKO.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
623b
|
2 lines
1 VTAB 21: PRINT "ARROWS - FAST , <-ROT-> . ": PRINT "I,J,K,M - SLOW ESC - END": PRINT "SPC - LAY BRICK GOTO1-RESUME": IF Q = 0 THEN FOR S = 0 TO 10: READ A: POKE S,A: POKE 230 +S,0: NEXT : DATA 1,,3,,53,62,63,39,44,173,: HGR : HCOLOR= 3: HPLOT 0,0: CALL 62454:X = 16:Y = 153: SCALE= 5
2 R = R +64 *((R <2) -(R >64)) +2 *((Q = 46) -(Q = 44)): ROT= R: XDRAW 1 AT X -N,Y -N: GET Q$:Q = ASC(Q$):N = Q = 32: ON N GOTO 2:X = X +(Q = 75) -(Q = 74) +22 *((Q = 21) -(Q = 8)):X = X +22 *((X <15) -(X >264)):Y = Y +(Q = 77) -(Q = 73) +12 *((Q = 10) -(Q = 11)):Y = Y +12 *((Y <15) -(Y >154)): XDRAW 1: IF Q < >27 THEN 1